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Dim Columnlnfos (3) X„ 
Dim Columnl (2) 
Dim Column2 (2) 
Dim Column3 (2) 

Specify the name and width for each column 
Columnl (0) = "Product ID" 
Columnl (I) = Clnt (12) 

Column2 (0) = "Pproduct Name" 
Column2 (I) = Clnt (30) 

Column3 (0) = "Product Cost" 
Column3 (I) - Clnt (10) 

Columnlnfos (0) = Columnl 
Columnlnfos (I) = Column2 
Columnlnfos (2) = Column3 

Now create the data set 
Dim rs 

rs = objCoollCE.CreateDataSet ("MyDataSet".Columnlnfos)l 



